home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / SXP683.ARC / MAIN940728 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  13.4 KB  |  396 lines
  1. 0 POKE53280,.:POKE53281,.:PRINT"[147][151]    ";:SYS49230:GOTO100
  2. 1 GOSUB2:GOTO4
  3. 2 GOTO1610
  4. 3 GOTO1000
  5. 4 POKE694,.:GOTO1740
  6. 5 GOSUB2:GOTO3
  7. 6 I$=" "+I$:SYS49182,I$:I$=MID$(I$,2):RETURN
  8. 7 A$=A$+" > ":GOTO1
  9. 8 A$=" ":GOTO2
  10. 9 A$=R$+A$:GOTO2
  11. 10 K$=LEFT$(K$,2)+"-"+M$(VAL(MID$(K$,3,2)))+"-"+RIGHT$(K$,2):RETURN
  12. 11 GOSUB13:OPEN1,8,15,"I0:":OPEN3,8,3,FR$:RETURN
  13. 12 GOSUB9:GOTO3
  14. 13 CLOSE3:CLOSE2:CLOSE1:RETURN
  15. 14 S=54272:POKES+4,64:POKES+3,9:POKES+1,8:POKES+5,12:POKES+6,15:POKES+4,65:RETURN
  16. 15 GOTO1650
  17. 16 GOSUB13:GOTO3
  18. 17 BI=((FGAND2^X)=.)+1:A$=MID$("[207]FF [207]N ",BI*4+1,3):RETURN
  19. 19 CLOSE2:OPEN2,8,2,"0:USER LOG,S,A":RETURN
  20. 20 GOSUB15:GOTO3
  21. 21 M3=VAL(DR$(4,L))+1:RETURN
  22. 24 VK$="[217][206]
  23. 25 [141]1760:I$[178]"Y":[151]703,.:[158]49221,I$:[139][194](703)[177].[167]I$[178]"":Z[178]1:[142]
  24. 26 [141]6
  25. 27 [139]I$[178]R$[176]I$[178]"(null)"[167]A$[178]"(null)ES":D[178]1:[137]2
  26. 28 [139]I$[178]"(null)"[167]A$[178]"(null)O":D[178].:[137]2
  27. 29 [137]25
  28. 30 A$[178]"":[158]49194:S[178]ST:[139][194](685)[167]A$[178][200](X$,[194](685)):[158]49200,A$
  29. 31 [158]49239:[142]
  30. 33 U$[178]"":[141]37:A$[178]X$[170]"":[158]49227,A$:[141]37:A$[178][200](A$,[194](2025)[171]1):[142]
  31. 34 A$[178]"(null)TAND BY":[137]9
  32. 36 [141]1:[137]6
  33. 37 [152]1,M$[199](G)[199](H)Y$:[132]1,CK,CK$,CK,CK:[142]
  34. 40 [129]X[178]1[164]PG:U$(X)[178]"":[130]:TB[178][171]1:[142]
  35. 70 W[178]1:J1$[178][201](K$,2)[170][202](K$,3,2)[170][200](K$,2)
  36. 71 [139](J1$[179]DA$[175]DA[178]1)[176](J1$[177]DA$[175]DA[178]2)[167]W[178].
  37. 72 [142]
  38. 80 [158]49224:B$[178]"":[129]X[178]1094[164]1101:B$[178]B$[170][199]([194](X)):[130]:[158]49230:[142]
  39. 90 A$[178]"(null)AVING LIST..":[141]9:[141]500:[137]3
  40. 100 [139][194](1064)[178]32[167]100
  41. 101 [159]5,2,.,[199](6):MP[178][194](742)[170][194](743)[172]256
  42. 105 [134]M$(12),MO$(12):E[178]TI:E$[178][200](TI$,4):B[178]255:C[178]256:V[178]192
  43. 106 I$[178]"":[129]X[178]1070[164]1073:A$[178][199]([194](X)):I$[178]I$[170]A$:[130]
  44. 107 [139][200](I$,1)[178]" "[167]I$[178][202](I$,2)
  45. 108 [141]5900
  46. 120 R$[178][199](13):J$[178]"(null)(null)(null)(null)(null)":V$[178]"RIGHT$NVALID ":W$[178]"ATNBORTED":C$[178][199](160)
  47. 121 AB[178]780:XB[178]781:IB[178]65508:CC[178]65484:OU[178]65490:CI[178]65478:[151]1023,B
  48. 130 [129]X[178]1[164]12:[135]M$(X):[130]:[129]X[178]1[164]12:[135]MO$(X):[130]:L$[178]"0
  49. 140 DATA"[202]AN","[198]EB","[205]AR","[193]PR","[205]AY","[202]UN","[202]UL","[193]UG","[211]EP","[207]CT","[206]OV","[196]EC
  50. 150 [131]31,28,31,30,31,30,31,31,30,31,30,31
  51. 160 Y$[178][199](.):M$[178]"P"[170][199](99):WT[178]10800:FR$[178]"0:(null)YSTEM (null)SERS":Q$[178][199](34)
  52. 170 [160]9:[159]9,8,2,"0:CUSTOM":[132]9,PS$:[132]9,A$
  53. 180 LF[178][197](A$):[132]9,DR$:DR[178][197](DR$):[139]DR[178][171]1[167]197
  54. 190 [134]DR$(4,DR):[129]X[178].[164]DR:[129]Y[178]1[164]3:[132]9,DR$(Y,X):[130]Y,X:[129]X[178].[164]DR
  55. 195 DR$(2,X)[178]DR$(2,X)[170]":":[130]
  56. 197 [132]9,MG$:MG[178][197](MG$):[134]MG$(3,MG):[129]X[178].[164]MG:[129]Y[178].[164]3:[132]9,MG$(Y,X):[130]Y,X
  57. 198 [129]X[178].[164]MG:MG$(1,X)[178]MG$(1,X)[170]":":[130]
  58. 200 [132]9,NC$:NC[178][197](NC$):[129]X[178].[164]NC:[132]9,C$(X):[130]:MD[178][197](MG$(2,.))
  59. 205 P$[178]MG$(1,.):[132]9,A$:BD[178][197](A$):[132]9,BD$,UM$,PG$,A$,LD$
  60. 206 UM[178][197](UM$):LD[178][197](A$):[132]9,SU$,NB$,A$,CG$,A$,P1$,P2$:PD[178][197](A$)
  61. 207 LD$[178]LD$[170]":":PG[178][197](PG$):P1[178][197](P1$):X[178]8:[134]TB$([197](NB$)[170]7),P1$(P1):X[178].
  62. 208 [132]9,P1$(X):X[178]X[170]1:[145][171](X[179]P1[170]1)[137]208:X[178]8
  63. 209 [132]9,TB$(X):X[178]X[170]1:[139]ST[178].[167]209
  64. 220 [160]9:[159]9,8,9,"0:STATS":[129]X[178].[164]MG:[132]9,SY$(X),R4$(X),AL$(X),RF$(X):[130]
  65. 240 [132]9,US$,OL$,YV$,FB$,BF$:MB[178][197](MG$(3,.)):YV[178][197](YV$):[139]DR[178][171]1[167]260
  66. 250 [129]X[178].[164]DR:[132]9,DR$(4,X):[130]
  67. 260 [160]9:U[178]8:R[178][197](RF$(.)):DD$[178]"0:
  68. 265 IFTB$(LD)="0"THENPOKE53265,PEEK(53265)OR16:CLOSE1:OPEN1,LD,15,"UI+":CLOSE1
  69. 266 GOSUB8:A$="[211]PENCE [205]AINTENANCE [214]940728":GOSUB2
  70. 270 P$=P$+":":BD$=BD$+":":TB=-1:DIMU$(PG)
  71. 280 POKE650,128:T=5184000:A$="                                        "
  72. 290 FORX=1TO6:X$=X$+A$:NEXT:X$=X$+"               ":FORX=1TO16:SS$=SS$+C$:NEXT
  73. 300 US=VAL(US$):OL=VAL(OL$)
  74. 310 WD=PEEK(687):IFPEEK(690)=7THENPA=1:POKE54296,15
  75. 320 I$=MID$(STR$(PEEK(53262)),2):IFLEN(I$)=1THENI$="0"+I$
  76. 330 E$=MID$(STR$(PEEK(53263)),2):IFLEN(E$)=1THENE$="0"+E$
  77. 340 E$=I$+E$
  78. 350 DY$=MID$(STR$(PEEK(999)),2):IFLEN(DY$)=1THENDY$="0"+DY$
  79. 360 Z$=MID$(STR$(PEEK(1000)),2):IFLEN(Z$)=1THENZ$="0"+Z$
  80. 370 Y2=PEEK(1001):Y3=PEEK(1002):YR=Y3*C+Y2:YR$=MID$(STR$(YR),2)
  81. 380 D$=DY$+Z$+RIGHT$(YR$,2):GOTO1000
  82. 500 GOSUB13:OPEN1,PD,15,"S0:PRG LIST"+L$:CLOSE1:OPEN2,PD,2,"0:PRG LIST"+L$+",S,W
  83. 501 J[178][197](DR$(4,L)):[152]2,"  ":[139]J[178].[167][160]2:[137]3640
  84. 502 [129]JM[178]1[164]J:[152]2,U$(JM):[130]:[160]2:[137]3640
  85. 910 [151]687,138:[151]685,.:[151]693,.:[141]34
  86. 911 [141]40
  87. 912 [160]2:[159]2,PD,2,"0:PRG LIST"[170][202]([196](L),2)
  88. 913 J[178][197](DR$(4,L)):[132]2,A$:TB[178]L:[139]J[178].[167]920
  89. 915 [129]JM[178]1[164]J:A$[178]"":[158]49194:[139][194](685)[167]A$[178][200](X$,[194](685)):[158]49200,A$
  90. 916 U$(JM)[178]A$:[158]49239:[130]
  91. 920 [160]2:[151]687,WD:[142]
  92. 950 PR[178]1[171]PR:[139]PR[178].[167][152]4:[160]4:WD[178]38:[137]3
  93. 951 [160]4:[159]4,4:[160]4:[139]ST[167]3
  94. 952 [159]4,4,7:WD[178]78:[137]3
  95. 1000 [151]687,WD:J[178].:WT[178]10800:UE[178].:DI[178].:MO[178].:[139]Z[167][151]1023,253:[137]2480
  96. 1010 [151]1023,1:[141]2160:A$[178]L$[170]":LEN> ":[141]9:[141]4:[139]Z[167]3
  97. 1050 [139]J9[178]1[167]1940
  98. 1055 [139][200](I$,1)[178]"$"[167]DI[178]1:II$[178]I$:[137]9000
  99. 1060 [141]6:[139]I$[178]"PEEKPEEK(null)"[167][158]65484:[151]1023,B:[137]3679
  100. 1075 [139]I$[178]"@"[167]9000
  101. 1077 [139]I$[178]"STR$RIGHT$(null)"[167]4150
  102. 1080 [139][200](I$,4)[178]"(null)RIGHT$(null)(null)"[167]LG[178].:[137]3900
  103. 1090 [139][200](I$,4)[178]"(null)(null)(null)CHR$"[167]LG[178]1:[137]3900
  104. 1100 [139]I$[178]"(null)(null)RIGHT$(null)(null)"[175][194](706)[178]B[167]950
  105. 1110 [139][200](I$,4)[178]"ATNSTR$STR$(null)"[167]5660
  106. 1115 [139]I$[178]"(null)RIGHT$VAL(null)"[167]10000
  107. 1117 [139]I$[178]"LEN(null)(null)(null)"[167]24000
  108. 1120 [139]I$[178]"?"[176]I$[178]"LEFT$"[167]F$[178]"HELPM":[141]1640:[137]3
  109. 1130 [139]I$[178]"(null)(null)(null)VAL"[167]3690
  110. 1140 [139]I$[178]"LEN"[167]1880
  111. 1150 [139]I$[178]"(null)(null)"[176]I$[178]"STR$(null)"[167]2610
  112. 1170 [139]I$[178]"(null)"[167]2060
  113. 1200 [139][200](I$,4)[178]"STR$VAL(null)(null)"[167]3700
  114. 1280 [139]I$[178]"STR$VAL(null)"[167]3270
  115. 1285 [129]X[178].[164]P1:[139]I$[178]P1$(X)[167]X[178]P1:[130]:[137]6002
  116. 1287 [130]
  117. 1330 [139]I$[179][177]"CHR$"[175]I$[179][177]"(null)"[167]A$[178]"LEFT$ = LEFT$ELP":[137]12
  118. 1385 [151]1023,254:[151]54296,.:[141]80:[141]2160
  119. 1386 A$[178]"(null)OGOFF AT "[170][200](TI$,2)[170]":"[170][202](TI$,4,2)[170]":"[170][201](TI$,2):[141]9
  120. 1387 A$[178]"LENONNECT (null)IME = "[170]B$[170]"(null)LEASE CALL AGAIN.":[141]2:[137]3679
  121. 1560 [151]707,.
  122. 1570 A[178][198](A$)
  123. 1580 [139]A[178]136[167]1910
  124. 1590 [139]A[178]137[176][194](702)[178]B[167][142]
  125. 1600 A$[178]AS$:[137]1820
  126. 1610 [161]#5,K9$:W[178].:H$[178]"":[139]A$[178]""[167]A$[178]"
  127. 1613 IFPRTHENPRINT#4,A$
  128. 1615 SYS49203,A$:SYS49239:IFRIGHT$(A$,1)<>""ANDSK=.THEN2840
  129. 1630 RETURN
  130. 1640 U=BD:DD$=BD$:GOTO1660
  131. 1650 U=8:DD$="0:
  132. 1660 [141]13:[159]1,U,15:[159]2,U,2,DD$[170]F$:[132]1,A,A$,I,I:[139]A[167][142]
  133. 1680 [151]685,.:[151]693,.:[141]8
  134. 1700 [141]30:[141]2:[139]S[178]64[176]W[176]Z[167][160]15:[160]2:A[178].:[142]
  135. 1730 [137]1700
  136. 1740 F1[178]1:[141]2160:F1[178].:[139]J9[178]1[175]J[179][177]1[167]I$[178]C$:A$[178]C$:[137]2
  137. 1750 [141]1760:[137]1800
  138. 1760 T2[178]TI[170]WT:[139]T2[177]T[171]1[167]T2[178]T2[171]T
  139. 1770 T2[178]T2[171][181](T2[173]60[174]3)[172]60[174]3:M5[178][181](T2[173]60[174]2):M5$[178][202]([196](M5),2)
  140. 1780 M5[178].:[139][195](M5$)[177]1[167]M5[178]16[172][197]([200](M5$,1))
  141. 1790 MM[178][197]([201](M5$,1)):M5[178]M5[170]MM:[151]702,M5:[142]
  142. 1800 [139]PA[167][141]14
  143. 1810 [151]703,.:[139]O[178].[167]O[178]38
  144. 1820 A$[178][200](X$,O):[158]49215,A$:[139]J[178]1[175][194](707)[178]136[167][151]707,.:[137]1820
  145. 1830 [139][194](707)[177].[167]AS$[178]A$:A$[178][199]([194](707)):[137]1560
  146. 1840 [139][194](703)[177].[167]Z[178]1:I$[178]C$:[142]
  147. 1850 I$[178]A$:I$[178][200](I$,[194](694)):[139][194](694)[178].[167]I$[178]C$
  148. 1870 O[178].:[142]
  149. 1880 [139][194](739)[167]A$[178]"(null)YSOP NOT AVAILABLE":[137]12
  150. 1885 [139]PA[167][151]54296,.:PA[178].:[151]690,[194](729):A$[178]"(null)AGER IF (null)FF":[137]12
  151. 1890 PA[178]1:[151]54296,15:[151]690,7:A$[178]"(null)AGER IS (null)N":[137]12
  152. 1910 [139]J9[178]1[167]K[178]TI:J9[178].:[142]
  153. 1920 J9[178]1:I$[178]C$:A$[178]C$:[137]2
  154. 1930 K[178]TI:J9[178]2:[137]3
  155. 1940 [151]54296,.:PA[178].:A$[178]"LENHAT (null)ODE":[141]9:[151]690,[194](729):[137]2550
  156. 1941 PM[178].:[129]JM[178]2[164][195](I$):[139][202](I$,JM,1)[178]JM$[167]JM[178][195](I$):PM[178]1
  157. 1942 [130]:[142]
  158. 2060 A$[178]"LENURRENT TIME IS "[170][200](TI$,2)[170]":"[170][202](TI$,3,2)[170]":"[170][201](TI$,2)
  159. 2070 K$[178]D$:[141]10:A$[178]A$[170]"  "[170]K$:[137]12
  160. 2160 X9[178][194](56331):A%[178](X9[175]16)[173]16[170]48:B%[178](X9[175]15)[170]48
  161. 2170 [139]X9[178][177]128[175][197]([199](A%)[170][199](B%))[179]12[167]A%[178]A%[170]1:B%[178]B%[170]2
  162. 2180 [139]B%[177]57[167]A%[178]A%[170]1:B%[178]B%[171]10
  163. 2190 [139]X9[179]128[175]A%[178]49[175]B%[178]50[167]A%[178]48:B%[178]48
  164. 2200 X9[178][194](56330):C%[178](X9[175]240)[173]16[170]48:D%[178](X9[175]15)[170]48
  165. 2210 X9[178][194](56329):E%[178](X9[175]240)[173]16[170]48:F%[178](X9[175]15)[170]48
  166. 2220 X9[178][194](56328):TI$[178][199](A%)[170][199](B%)[170][199](C%)[170][199](D%)[170][199](E%)[170][199](F%)
  167. 2230 [139]F1[178]1[167][142]
  168. 2240 [139]TI[179]E[167]E[178]E[171]T
  169. 2250 L2[178]TI[171]E
  170. 2260 [139][197](TI$)[179]10000[175][194](1018)[179][177]1[167]2290
  171. 2270 [139]TI$[177]"010000"[167][151]1018,.
  172. 2280 [142]
  173. 2290 [151]1018,1:[139]DY$[178]"28"[175]Z$[178]"02"[167]2420
  174. 2300 [139]DY$[178]"29"[175]Z$[178]"02"[167]DY$[178]"01":Z$[178]"03":[137]2440
  175. 2310 [139]DY$[178]"31"[175](Z$[178]"01"[176]Z$[178]"10"[176]Z$[178]"03"[176]Z$[178]"05"[176]Z$[178]"07")[167]2360
  176. 2320 [139]DY$[178]"31"[175](Z$[178]"08"[176]Z$[178]"12")[167]2360
  177. 2330 [139]DY$[178]"30"[175](Z$[178]"09"[176]Z$[178]"11"[176]Z$[178]"04"[176]Z$[178]"06")[167]2360
  178. 2340 DY$[178][202]([196]([197](DY$)[170]1),2):[139][195](DY$)[178]1[167]DY$[178]"0"[170]DY$
  179. 2350 [137]2440
  180. 2360 TJ[178][197](Z$)[170]1:[139]TJ[179]10[167]LT[178]1:[137]2380
  181. 2370 LT[178]2:[137]2380
  182. 2380 DY$[178]"01":Z$[178][201]([196](TJ),LT)
  183. 2390 [139]LT[178]1[167]Z$[178]"0"[170]Z$
  184. 2400 [139]Z$[178]"13"[167]YR$[178][201]([196]([197](YR$)[170]1),4):Z$[178]"01"
  185. 2410 [137]2440
  186. 2420 YR[178][197](YR$):Y2[178]YR[173]4:YR[178][181](YR[173]4):[139]YR[178]Y2[167]DY$[178]"29":[137]2440
  187. 2430 DY$[178]"01":Z$[178]"03"
  188. 2440 [151]999,[197](DY$):[151]1000,[197](Z$):YR[178][197](YR$):Y3[178][181](YR[173]C)
  189. 2450 Y2[178]YR[171](Y3[172]C):[151]1001,Y2:[151]1002,Y3:D$[178]DY$[170]Z$[170][201](YR$,2)
  190. 2460 K$[178]D$:[141]10:[141]19:A$[178]" "[170]R$[170]"STR$ATE: "[170]K$[170]R$[170]" ":[152]2,A$:[160]2:[139]DR[178][171]1[167]13
  191. 2470 [159]2,8,2,"0:LU,S,A":[152]2,A$:[160]2:[159]2,8,2,"0:LD,S,A":[152]2,A$:[137]13
  192. 2480 J9[178].:[141]2510:[151]54296,.:[137]3679
  193. 2510 [129]X[178]8[164][197](NB$)[170]7:[160]1:[159]1,X,15:[160]1
  194. 2520 [139]ST[167]2540
  195. 2530 [159]1,X,15,"I0:":[160]1
  196. 2540 [130]:[142]
  197. 2550 [151]694,.:[151]702,B:[158]49215,X$
  198. 2560 [139][194](707)[178].[167]2550
  199. 2570 A$[178][199]([194](707)):[141]1560:[139]J9[178].[176]Z[167][141]8:[137]1930
  200. 2580 [137]2550
  201. 2610 A$[178]"STR$:ASCILENAME         (null)SER":[141]9:F$[178]"LD":[139]I$[178]"(null)(null)"[167]F$[178]"LU
  202. 2630 GOTO20
  203. 2840 SK=.:K=TI:IFK9$>""THENA$=K9$:GOTO2870
  204. 2850 GETA$:IFA$>""THEN2870
  205. 2860 GET#5,A$:IFA$>""THEN2870
  206. 2865 IF(PEEK(673)AND1)=.THENRETURN
  207. 2867 GOTO2850
  208. 2870 K=TI:Z=.:A=ASC(A$):IFA>127THENA$=CHR$(A-128)
  209. 2880 IFA$=""ORA$=""ORA$=""THENH$=A$:W=1:RETURN
  210. 2890 IFA$=CHR$(83)ORA$=CHR$(115)ORA$=""THENA$="<[195]>":SK=1:GOSUB2:GOTO2960
  211. 2900 GOTO2850
  212. 2960 GETA$:IFA$>""THEN2990
  213. 2970 IFTI-K>WTTHENA$=CHR$(65):Z=1:GOTO2990
  214. 2980 GET#5,A$:IFA$=""THEN2960
  215. 2990 A=ASC(A$):IFA>127THENA$=CHR$(A-128)
  216. 3000 IFA$=CHR$(65)ORA$=CHR$(97)ORA$=""THENGOSUB3055:W=1:RETURN
  217. 3010 IFA$=CHR$(67)ORA$=CHR$(99)ORA$=""THEN3055
  218. 3020 GOTO2960
  219. 3055 A$=CHR$(20):A$=A$+A$+A$+"":GOSUB2:SK=.:RETURN
  220. 3270 A$="[196]EVICE":O=2:GOSUB7:IFI$=C$THEN3
  221. 3280 U=VAL(I$):IFU<8ORU>VAL(NB$)+7THEN3270
  222. 3290 A$="[196]RIVE/[208]ARTITION":O=20:GOSUB7:IFI$=C$THEN3
  223. 3300 DD$=I$+":
  224. 3310 [141]13:[159]1,U,15:[160]1:[139]ST[167]A$[178]V$:[137]5
  225. 3320 A$[178]"STR$ELETING":[141]9:[159]1,U,15,"S"[170]DD$[170]"D*":[160]1:[137]3
  226. 3640 [160]14:[160]1:[159]1,8,15,"S0:STATS":[152]1,"I0:":[160]1
  227. 3645 [159]14,8,14,"0:STATS,S,W
  228. 3650 FORX=.TOMG:PRINT#14,SY$(X);R$;R4$(X);R$;AL$(X);R$;RF$(X):NEXT
  229. 3660 PRINT#14,STR$(US);R$;Q$+OL$;R$;STR$(YV);R$;FB$;R$;BF$:IFDR=-1THEN3676
  230. 3675 FORX=.TODR:PRINT#14,DR$(4,X):NEXT
  231. 3676 CLOSE14:RETURN
  232. 3679 LP$="":F$="BBS6*
  233. 3680 [139]TB$(LD)[178]"0"[167][151]53265,[194](53265)[175]239:[160]1:[159]1,LD,15,"UI-":[160]1
  234. 3681 [153]"LOADNEW"R$"LOAD"Q$;LD$;LP$;F$;Q$",";LD;":"R$"RUN
  235. 3682 CLOSE4:POKE198,3:POKE631,13:POKE632,13:POKE633,13:PRINT"":END
  236. 3690 MO=1:A$="[205]OVE FROM DIR":O=2:GOSUB7:M2=VAL(I$):IFM2>DRORI$=C$THEN3
  237. 3692 A$="[212]O DIR":O=2:GOSUB7:J1=VAL(I$):IFJ1>DRORI$=C$THEN3
  238. 3694 I$="[196][197][204][208]"+MID$(STR$(M2),2)
  239. 3700 GOSUB4080:CS=.:IFL$=""THEN4150
  240. 3710 A$="[198]ILENAME":O=14:GOSUB7
  241. 3720 IFI$=C$ANDMO=.ANDCSTHEN90
  242. 3730 IFI$=C$THEN3
  243. 3740 GOSUB6:GOSUB21:IFM3=1THEN3790
  244. 3750 M3=M3-1:A$=U$(M3)
  245. 3760 GOSUB4170:IFI$=U$THEN3850
  246. 3770 IFM3=1THEN3790
  247. 3780 GOTO3750
  248. 3790 A$="[198]ILE NOT LISTED":GOSUB9:GOTO3710
  249. 3850 A$="[196]ELETED":CS=1:IFMOTHENJ2$=U$(M3):A$="[205]OVED
  250. 3860 [141]9:[139]M3[178][197](DR$(4,L))[167]U$(M3)[178]"":[137]3862
  251. 3861 [129]X[178]M3[164][197](DR$(4,L))[171]1:U$(X)[178]U$(X[170]1):[130]
  252. 3862 DR$(4,L)[178][202]([196]([197](DR$(4,L))[171]1),2)
  253. 3880 A$[178]"R"[170]DD$[170]"D"[170][200](I$,14)[170]L$[170]"="[170]DD$[170]I$[170]L$
  254. 3881 [139]MO[178]1[175]TB$(U)[179][177]"3"[175]DR$(1,M2)[179][177]DR$(1,J1)[167]3885
  255. 3882 [139]MO[167]A$[178]"C"[170]DR$(2,J1)[170]I$[170][202]([196](J1),2)[170]"="[170]DD$[170]I$[170]L$:[137]3890
  256. 3885 [139]MO[167]A$[178]"R"[170]DD$[170]I$[170][202]([196](J1),2)[170]"="[170]DD$[170]I$[170]L$
  257. 3890 [141]13:[159]1,U,15,A$:[160]1:[139]MO[178].[167]3710
  258. 3891 [139]TB$(U)[178]"3"[175]DR$(1,M2)[178]DR$(1,J1)[167][141]13:[159]1,U,15,"S"[170]DD$[170]I$[170]L$
  259. 3892 [160]1:[141]500:I$[178]"ATNSTR$STR$(null)"[170][202]([196](J1),2):[141]4080
  260. 3893 M3[178][197](DR$(4,J1))[170]1:U$(M3)[178]J2$:DR$(4,J1)[178][202]([196](M3),2):[141]500:[137]3
  261. 3900 [141]4080:[139]L$[178]""[167]4150
  262. 3910 [141]21:A$[178]"# OF FILES: "[170]DR$(4,L):[141]9
  263. 3930 A$[178]"  PEEKLKS ASCILENAME         (null)ENDER":[141]9:[139]W[167]4010
  264. 3940 [139]M3[178]1[176]W[178]1[167]4010
  265. 3950 M3[178]M3[171]1:A$[178]U$(M3):U$[178]""
  266. 3960 [141]4170:T$[178]T$[170]" ":U$[178]U$[170][200](X$,17[171][195](U$)):TY$[178][200](TY$,14)
  267. 3970 A$[178]T$[170]U$[170]TY$:[141]2:[139]W[167]4010
  268. 3980 [139]LG[175]PW$[179][177]"NONAME"[167]A$[178]"(null)ASSWORD: "[170]PW$:[141]2:[139]W[167]4010
  269. 3985 [139]LG[167]A$[178]CM$[170]R$:[141]2:[139]W[167]4010
  270. 3990 [139]M3[178]1[167]4010
  271. 4000 [137]3950
  272. 4010 [141]13:[139]TB$(U)[179][177]"0"[167]4015
  273. 4011 [159]1,U,15,"I0:":[152]1,"M-R"[199](250)[199](2)[199](3):[161]#1,A$,I$,I$
  274. 4012 F[178]C[172][198](I$[170]Y$)[170][198](A$[170]Y$):[160]1:[137]4020
  275. 4015 F$[178]"AAA":[141]4030
  276. 4020 A$[178][202]([196](F),2)[170]" PEEKLOCKS ASCREE":[141]2:[145][171](DI[178].)[137]3:DI[178].:[141]8:[137]9015
  277. 4030 [160]10:[139]TB$(U)[179][177]"1"[167][159]10,U,15,"I
  278. 4033 IFTB$(U)="1"ANDDD$<>""THENOPEN10,U,.,DD$+"$
  279. 4035 [160]10:FF$[178]"$"[170]DD$[170]F$[170]L$:[159]10,U,.,FF$
  280. 4040 [161]#10,A$,A$,A$,A$,A$,A$
  281. 4050 [161]#10,A$:[139]A$[179][177]""[137]4050
  282. 4060 [161]#10,A$,A$,A$,B$:F[178][198](A$[170]Y$)[170][198](B$[170]Y$)[172]C:[160]10:[142]
  283. 4080 [139]DR[178][171]1[167]L$[178]"":[142]
  284. 4083 [139]UL[167][129]X[178]1[164]US:U$(X)[178]"":[130]:[158]49239:UL[178].
  285. 4090 L[178][197](L$):[139][195](I$)[178]4[167]4130
  286. 4100 L$[178][202](I$,5)
  287. 4120 L[178][197](L$):[139]L[179].[176]L[177]DR[176](L[178].[175]L$[179][177]"0")[167]L$[178]"0":L[178].:[142]
  288. 4130 U[178][197](DR$(1,L)):DD$[178]DR$(2,L)
  289. 4135 [139]TB[179][177]L[167][141]910:[137]4130
  290. 4137 [139]MO[167][142]
  291. 4140 A$[178]"STR$IRECTORY "[170]L$[170]":"[170]DR$(3,L):[137]9
  292. 4150 [139]DR[178][171]1[167]3
  293. 4160 A$[178]"STR$IR  ASCILES  (null)AME":[141]9:[129]X[178].[164]DR
  294. 4165 A$[178][196](X)[170]"    "[170][200]("000",3[171][195](DR$(4,X)))[170]DR$(4,X)[170]"   "[170]DR$(3,X)
  295. 4166 [141]2:[139]W[167]X[178]DR[170]1
  296. 4167 [130]:[137]3
  297. 4170 FD$[178][201](A$,12):DL$[178][201](FD$,3):FD$[178][200](FD$,9):A$[178][200](A$,[195](A$)[171]12)
  298. 4175 [129]X[178][195](A$)[164]1[169][171]1:[139][202](A$,X,1)[178]""[167]CM$[178][201](A$,[195](A$)[171]X):[137]4185
  299. 4180 [130]
  300. 4185 A$[178][200](A$,X[171]1)
  301. 4190 T$[178][200](A$,6):U$[178]"":[129]C8[178]13[164]28:Z1$[178][202](A$,C8,1):[139]Z1$[178]""[167]4210
  302. 4200 U$[178]U$[170]Z1$:[130]
  303. 4210 PW$[178][202](A$,7,6):TY[178][195](A$)[171]13[171][195](U$):TY$[178][201](A$,TY):[142]
  304. 5660 [141]4080:C8[178]L:CS[178].:[139]L$[178]""[167]4150
  305. 5670 M3[178][197](DR$(4,C8)):[139]M3[178][177]PG[167]A$[178]"(null)RIGHT$(null)(null)"[170]L$[170]" ASCULL":[137]12
  306. 5680 A$[178]"(null)AME OF ASCILE > ":O[178]14:[141]1:[139]Z[176](I$[178]C$[175]CS[178].)[167]3
  307. 5685 [139]I$[178]C$[167]90
  308. 5695 JM$[178]I$:[141]6:F[178].:[129]X[178]1[164][195](I$):B$[178][202](I$,X,1)
  309. 5700 [139]B$[178]","[176]B$[178]":"[176]B$[178]"?"[176]B$[178]"$"[176]B$[178]"*"[167]A$[178]V$:[141]2:F[178]1:X[178][195](I$)
  310. 5710 [130]:[139]F[167]5680
  311. 5720 F$[178]I$[170]"":[141]13:[159]1,U,15,"I"[170]DD$:[159]2,U,2,DD$[170]F$[170]L$:[160]2:[132]1,A,A$,I,I
  312. 5725 [139]A[167][159]2,U,2,DD$[170]JM$:[160]2:[132]1,A,A$,I,I:[139]A[178].[167][152]1,"R"[170]DD$[170]F$[170]L$[170]"="[170]DD$[170]JM$
  313. 5730 JM$[178]"":[139]A[167]A$[178]"ASCILE NOT ON DISK":[141]9:[137]5680
  314. 5740 [141]4030:BK$[178][202]([196](F),2):A$[178]BK$[170]" PEEKLOCK(S)":[141]9
  315. 5745 [139][195](BK$)[179]4[167]BK$[178]"0"[170]BK$:[137]5745
  316. 5750 [141]13:[159]1,U,15:[159]2,U,2,DD$[170]F$[170]L$[170]",P,R":[160]2:[132]1,A,A$,I,I
  317. 5760 FT$[178]"(null)(null)CHR$":[139]A[167]FT$[178]"(null)VAL(null)
  318. 5770 A$="[198]ILE [212]YPE: "+FT$:GOSUB9:FT$=LEFT$(FT$,1)
  319. 5780 A$="[208]ASSWORD ([207]PTIONAL) > ":O=6:GOSUB1:IFZTHEN3
  320. 5790 IFI$=C$THENPW$="NONAME":FT$=FT$+"-"+BK$:GOTO5820
  321. 5800 GOSUB6:IFLEN(I$)<2THENA$="[205]IN 2 [195]HARACTERS":GOSUB9:GOTO5780
  322. 5805 PW$=I$+LEFT$(X$,6-LEN(I$)):FT$=FT$+"*"+BK$
  323. 5820 A$="[195]OMMENT ([207]PTIONAL)>":O=38:GOSUB1
  324. 5830 GOSUB6:K$=D$:GOSUB10:B$=FT$+PW$+F$+""+J$+""+I$+K$+"000
  325. 5840 [141]21:U$(M3)[178]B$:DR$(4,C8)[178][202]([196](M3),2):CS[178]1
  326. 5895 [159]2,8,2,"0:LU,S,A":[152]2,L$[170]":"[170]F$[170][200](X$,17[171][195](F$))[170]J$:[141]13
  327. 5896 A$[178]"STR$ONE":[141]9:[137]5670
  328. 5900 BR[178][197](I$):[151]659,6:RC[178]1022730[173]BR:[141]5950
  329. 5910 [151]176,LO:[151]177,HI:[151]665,LO
  330. 5920 [151]666,HI:RC[178]1022730[173]BR[173]2[171]100:[141]5950:[151]661,LO:[151]662,HI
  331. 5930 [139][195](I$)[178]3[167]I$[178]"0"[170]I$
  332. 5940 [129]X[178]1[164]4:[151]X[170]964,[198]([202](I$,X,1)):[130]:[142]
  333. 5950 HI[178][181](RC[173]C):LO[178][181](RC[171]HI[172]C):[142]
  334. 6002 F$[178]I$:LP$[178]"L-
  335. 6006 GOSUB13:OPEN1,LD,15:OPEN2,LD,2,LD$+LP$+F$:CLOSE2:INPUT#1,A,A$,I,I:CLOSE1
  336. 6008 IFA=.THENGOSUB34:GOSUB8:GOTO3680
  337. 6010 IFLP$="L-"THENLP$="S-":GOTO6006
  338. 6012 A$=F$+" NOT FOUND":GOTO12
  339. 9000 A$="[196]EVICE > ":O=2:GOSUB1:X=VAL(I$)
  340. 9005 IFX<8ORX>VAL(NB$)+7ORI$=C$THEN3
  341. 9010 GOSUB8:CLOSE7:OPEN7,X,15:CLOSE7:IFSTTHENA$=V$+"[196]EVICE":GOTO5
  342. 9015 A$="[196][207][211] [195][205][196] > ":IFDITHENI$=II$:GOTO23000
  343. 9020 O=80:GOSUB1:IFZORI$=C$THENOPEN7,X,15:GOTO9040
  344. 9023 IFLEFT$(I$,1)="N"ANDPEEK(706)<BTHENA$=V$:GOTO5
  345. 9024 IFLEFT$(I$,1)="$"ANDLEN(I$)=3ANDTB$(U)="1"THENI$=MID$(I$,3,1)+":$":GOTO23000
  346. 9025 IFLEFT$(I$,1)="$"ORMID$(I$,3,1)="$"THEN23000
  347. 9026 IFTB$(U)<>"1"THEN9030
  348. 9027 IFLEN(I$)=2THENI$=I$+":
  349. 9028 [139]I$[178]"/"[167][159]7,X,7,"0:$":[160]7:I$[178]""
  350. 9029 [139][200](I$,1)[178]"/"[167][159]7,X,7,[202](I$,4,1)[170]":$":[160]7:I$[178]""
  351. 9030 [159]7,X,15,I$
  352. 9040 [132]7,A$,B$,B1$,B2$
  353. 9045 A$[178]A$[170]" "[170]B$[170]" "[170]B1$[170]" "[170]B2$:[160]7:[141]9:[139]I$[178]C$[167]3
  354. 9050 [141]8:DI[178].:[137]9015
  355. 10000 A$[178]"STR$EVICE (8) > ":O[178]2:[141]1:X[178][197](I$):[139]I$[178]C$[167]X[178]8
  356. 10005 [139]X[179]8[176]X[177][197](NB$)[170]7[167]3
  357. 10010 [160]7:[159]7,X,15:[160]7:[139]ST[167]A$[178]V$[170]"STR$EVICE":[137]5
  358. 10015 [160]7:[159]7,X,15
  359. 10020 A$[178]"STR$RIVE/(null)RT & ASCILENAME (STR$:ASCRIGHT$(null)VAL)>":O[178]19:[141]1:[139]Z[176]I$[178]C$[167]3
  360. 10030 F$[178]I$:[139][194](706)[179]B[176]PR[178]1[167]10060
  361. 10040 A$[178]"STR$UMP TO PRINTER? ":[141]2:[141]24
  362. 10050 [139]D[167][159]4,4:[160]4:[139]ST[178].[167]PR[178]1:[159]4,4,7:[151]687,80
  363. 10060 [160]1:[159]1,X,2,F$:[132]7,A:[139]A[167]A$[178]V$:[137]5
  364. 10070 DD$[178]"":U[178]X:[141]1660:[145][171](PR[178]1)[137]950:[137]3
  365. 23000 [141]13:[141]8:[159]7,X,15:[159]2,X,.,I$
  366. 23010 [132]7,A$,B$,B1$,B2$:[139][197](A$)[167]9045
  367. 23070 [161]#2,A$,A$,A$,A$
  368. 23080 [151]XB,2:[158]CI
  369. 23090 A$[178]"":[158]IB:M[178][194](AB):[158]IB:H[178][194](AB):A$[178][196](M[170]H[172]C):A$[178][202](A$,2):A$[178]A$[170]" "
  370. 23120 [158]IB:[139][194](AB)[179][177].[167]A$[178]A$[170][199]([194](AB)):[137]23120
  371. 23140 [141]2:[139]Z[167]23160
  372. 23145 [139]W[167][158]CC:[141]13:[160]7:U[178]X:DD$[178]"":DI[178]1:[137]4010
  373. 23150 [151]XB,2:[158]CI:[158]IB:[158]IB:[139][194](AB)[177].[167]23090
  374. 23160 [158]CC:[141]13:[160]7:[141]8:DI[178].:[137]9015
  375. 24000 A$[178]"(null)OURCE > ":O[178]2:[141]1:SX[178][197](I$):[139]SX[179]8[176]SC[177][197](NB$)[170]7[176]I$[178]C$[167]3
  376. 24030 A$[178]"STR$EST   > ":O[178]2:[141]1:DX[178][197](I$):[139]DX[179]8[176]DX[177][197](NB$)[170]7[176]I$[178]C$[167]3
  377. 24050 [160]7:[159]7,DX,15:[160]7:S[178]ST:[159]7,SX,15:[160]7:[139]S[176]ST[167]A$[178]V$:[137]5
  378. 24060 A$[178]"(null)OURCE: STR$:ASCILE > ":O[178]16:[141]1:FF$[178]I$:[139]I$[178]C$[167]3
  379. 24062 A$[178]"STR$EST:   STR$:ASCILE > ":O[178]16:[141]1:FD$[178]I$:[139]I$[178]C$[167]3
  380. 24064 [139]FD$[178]FF$[167]J[178]1
  381. 24065 [129]X[178]1[164][195](I$):B$[178][202](I$,X,1)
  382. 24070 [139]B$[178]","[176]B$[178]"?"[176]B$[178]"$"[176]B$[178]"*"[167]A$[178]V$:[141]2:[137]24060
  383. 24080 [130]:[139]J[178].[167]I$[178]FF$:J[178]1:[137]24065
  384. 24090 J[178].:[160]1:[159]1,SX,15,"I0:":[159]7,SX,7,FF$:[160]7:[132]1,A,A$,I,I
  385. 24100 [139]A[178]62[167]A$[178]"(null)OT ON STR$ISK":[141]9:[137]24060
  386. 24110 [160]3:[159]3,DX,15,"I0:":[159]7,DX,7,FD$:[160]7:[132]3,A,I$
  387. 24120 A$[178]I$:[139]A[178].[167]A$[178]"VALXISTS
  388. 24130 IFA<>62THEN12
  389. 24140 OPEN7,SX,7,FF$+",P,R":CLOSE7:INPUT#1,A,A$,I,I:FT$="P":IFA=64THENFT$="S
  390. 24150 [160]1:[160]3:[159]8,SX,8,FF$[170]","[170]FT$[170]",R":[159]9,DX,9,FD$[170]","[170]FT$[170]",W
  391. 24155 A$="[195]OPYING...":GOSUB9:SYS49248
  392. 24160 CLOSE8:CLOSE9:A$="[196]ONE":GOSUB9
  393. 24163 A$="[211]CRATCH ORIGINAL? ":GOSUB9:GOSUB24:IFZORD=.THEN3
  394. 24164 IFMID$(FF$,2,1)<>":"THENFF$="0:"+FF$
  395. 24165 OPEN1,SX,15,"S"+FF$:CLOSE1:GOTO3
  396.